home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Applications / Alpha.5.96 folder / Tcl / UserCode / otherMenu.tcl < prev    next >
Encoding:
Text File  |  1994-07-27  |  448 b   |  15 lines  |  [TEXT/ALFA]
  1. #===========================================================================
  2. # Calling OtherMenu AEvent.  Requires OtherMenu version 1.4 or later.
  3. #         -- Mark Nagata
  4.  
  5. proc OMEvent {filler fname} {
  6.     set path "HardDisk:SystemF-E:OtherMenu Folder:"
  7.     append path $fname
  8.     AEBuild -r 'ALFA' *Men *Men "----" [makeAlis $path]
  9. }
  10.  
  11.  
  12. bind 'm' <zs> {OMEvent -- "Memory Map"}
  13. bind 'i' <zs> {OMEvent -- "Files:File InfoI"}
  14. bind 'p' <zs> {OMEvent -- "Put AwayI"}
  15.